COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PDL NETSTA MSGLUP NXTMSG NUMOUT
C00003 00003	NAME
C00005 00004	MSG
C00008 ENDMK
C⊗;
;PDL NETSTA MSGLUP NXTMSG NUMOUT

TITLE NETSTAT
SUBTTL NCP statistics reporter

; Mark Crispin, SU-AI, May 1978

PDL:	BLOCK 30.

NETSTA:	JFCL
	RESET
	MOVE 17,[PDL(-30.)]
	MOVEI 1,[.RSQZ 0,FLNOPS ? 0]	; first entry in our tables
	.SYML 1,
	 JRST 4,.-1
	MOVSI 377777
	SETPR2				; map the system in
	 JRST 4,.-1
	MOVSI 2,-NMSGS
MSGLUP:	SKIPE 3,400000(1)
	 SKIPN NAME(2)
	  AOJA 1,NXTMSG
	OUTSTR @NAME(2)			; name of cell
	PUSHJ 17,NUMOUT
	OUTSTR @MSG(2)			; cell text
	AOS 1
NXTMSG:	AOBJN 2,MSGLUP
	EXIT

NUMOUT:	IDIVI 3,8.
	PUSH 17,4
	SKIPE 3
	 PUSHJ 17,NUMOUT
	POP 17,
	ADDI "0
	OUTCHR
	POPJ 17,
;NAME

SUBTTL Cell names

NAME:	[ASCIZ/FLNOPS	/]
	[ASCIZ/TRACES	/]
	[ASCIZ/ERWOMI	/]
	[ASCIZ/NIMPDN	/]
	[ASCIZ/IIREST	/]
	[ASCIZ/GNILL	/]
	[ASCIZ/ERWMI	/]
	[ASCIZ/INCMTR	/]
	[ASCIZ/ILLMT	/]
	[ASCIZ/BDRFNM	/]
	[ASCIZ/NODDBS	/]
	[ASCIZ/UNKLNK	/]
	[ASCIZ/NRFNL	/]
	[ASCIZ/NILLOP	/]
	[ASCIZ/BSILL	/]
	[ASCIZ/BCMM	/]
	[ASCIZ/RERRM	/]
	[ASCIZ/NILLLD	/]
	[ASCIZ/N2RFCS	/]
	[ASCIZ/NILLST	/]
	[ASCIZ/NNCOR	/]
	[ASCIZ/NOLKS	/]
	[ASCIZ/NHOST0	/]
	[ASCIZ/SLNOPS	/]
	[ASCIZ/NHANGS	/]
	[ASCIZ/NSPSUS	/]
	[ASCIZ/NRSETS	/]
	[ASCIZ/NMESIN	/]
	[ASCIZ/NMESOU	/]
	[ASCIZ/NNOLNK	/]
	[ASCIZ/NSCLSS	/]
	[ASCIZ/OPTMO	/]
	[ASCIZ/SLUNLK	/]
	[ASCIZ/RWNOSS	/]
	[ASCIZ/NIWCNO	/]
	[ASCIZ/NSSC	/]
	[ASCIZ/NALWNC	/]
NMSGS==.-NAME
;MSG

SUBTTL Message texts

MSG:	[ASCIZ/	IMP-HOST no-ops
/]
	[ASCIZ/	trace messages
/]
	[ASCIZ/	leader errors
/]
	[ASCIZ/	IMP going down messages
/]
	[ASCIZ/	interface reset messages
/]
	[ASCIZ/	homosocketual RFC's
/]
	[ASCIZ/	data errors
/]
	[ASCIZ/	incomplete transmissions
/]
	[ASCIZ/	illegal type messages
/]
	[ASCIZ/	spurious RFNM's
/]
	[ASCIZ/	missing DDB's
/]
	[ASCIZ/	messages to non-ex link
/]
	[ASCIZ/	spurious RFNMs with no links
/]
	[ASCIZ/	new control messages
/]
	[ASCIZ/	illegal byte sizes
/]
	[ASCIZ/	short control messages
/]
	[ASCIZ/	protocol errors
/]
	[ASCIZ/	illegal leaders
/]
	[ASCIZ/	duplicate RFCs
/]
	[ASCIZ/	illegal table states
/]
	[ASCIZ/	no free storage at UUO level
/]
	[ASCIZ/	link assign lossages
/]
	[ASCIZ/	messages for host 0
/]
	[ASCIZ/	Host-Host no-ops
/]
	[ASCIZ/	input blocks due to no FS
/]
	[ASCIZ/	spare FS blocks used
/]
	[ASCIZ/	resets
/]
	[ASCIZ/	messages received
/]
	[ASCIZ/	messages sent
/]
	[ASCIZ/	all links in use
/]
	[ASCIZ/	CLSs on non-ex socket
/]
	[ASCIZ/	interface time outs
/]
	[ASCIZ/	Host-host unknown links
/]
	[ASCIZ/	messages with no socket
/]
	[ASCIZ/	message without connection
/]
	[ASCIZ/	messages on closed socket
/]
	[ASCIZ/	allocates on non-ex link
/]
IFN .-MSG-NMSGS,.ERR lossage in message tables

END NETSTAT